home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assemblers / cas.lha / hexs / r.s < prev   
Encoding:
Text File  |  1992-03-22  |  2.5 KB  |  199 lines
  1. org 0
  2. B0000:
  3. sjmp B0034
  4. DATA AT 0002h
  5.  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0|                |
  6.  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0|                |
  7.  0                                             |                |
  8. org 0023h
  9. B0023:
  10.    jbc TI, B002a
  11.    jbc RI, B002f
  12. reti
  13. B002a:
  14.    mov R0, #7dh
  15.    acall C0051
  16. reti
  17. B002f:
  18.    mov R0, #7ch
  19.    acall C0051
  20. reti
  21. B0034:
  22.    mov 73h, #74h
  23.    mov SP, #7dh
  24.    mov DPTR, #0067h
  25.    push DPL
  26.    push DPH
  27.    acall B0144
  28. B0043:
  29.    orl PCON, #01h
  30. sjmp B0043
  31. C0048:
  32.    mov @R0, SP
  33.    dec 73h
  34.    mov R0, 73h
  35.    mov SP, @R0
  36. ret
  37. C0051:
  38.    mov R1, 73h
  39.    inc 73h
  40.    mov @R1, SP
  41.    mov SP, @R0
  42.    mov @R0, #7fh
  43. ret
  44. B005c:
  45.    mov R1, 73h
  46.    inc 73h
  47.    mov @R1, SP
  48.    dec R0
  49.    mov SP, R0
  50.    acall B006e
  51. B0067:
  52.    dec 73h
  53.    mov R0, 73h
  54.    mov SP, @R0
  55. ret
  56. B006e:
  57.    push DPL
  58.    push DPH
  59. ret
  60. B0073:
  61.    mov SCON, #0c0h
  62.    clr PS
  63.    clr RCLK
  64.    clr TCLK
  65.    mov A, TMOD
  66.    anl A, #0fh
  67.    add A, #20h
  68.    mov TMOD, A
  69.    mov TH1, #0ffh
  70.    orl PCON, #80h
  71.    setb TR1
  72.    clr TB8
  73.    clr RI
  74.    clr TI
  75.    setb ES
  76. ret
  77. B0095:
  78.    clr T0
  79.    setb SM2
  80.    setb REN
  81. ret
  82. B009c:
  83.    clr REN
  84.    setb T0
  85. ret
  86. C00a1:
  87.    mov R0, #7ch
  88.    acall C0048
  89.    mov A, SBUF
  90.    jnb SM2, B00b1
  91.    cjne A, #3ah, B00af
  92.    clr SM2
  93. B00af:
  94. sjmp C00a1
  95. B00b1:
  96. ret
  97. C00b2:
  98.    mov A, #0dh
  99.    acall G00b8
  100.    mov A, #0ah
  101. G00b8:
  102.    mov SBUF, A
  103.    mov R0, #7dh
  104.    acall C0048
  105. ret
  106. C00bf:
  107.    anl A, #0fh
  108.    cjne A, #0ah, B00c4
  109. B00c4:
  110.    jc B00cb
  111.    add A, #57h
  112.    acall G00b8
  113. ret
  114. B00cb:
  115.    add A, #30h
  116.    acall G00b8
  117. ret
  118. L00d0:
  119.    xch A, R3
  120.    add A, R3
  121.    xch A, R3
  122.    push ACC
  123.    swap A
  124.    acall C00bf
  125.    pop ACC
  126.    acall C00bf
  127. ret
  128. B00dd:
  129.    mov A, #3ah
  130.    acall G00b8
  131.    mov R3, #00h
  132.    mov A, #00h
  133.    acall L00d0
  134.    mov A, DPH
  135.    acall L00d0
  136.    mov A, DPL
  137.    acall L00d0
  138.    mov A, #01h
  139.    acall L00d0
  140.    mov A, R3
  141.    cpl A
  142.    acall L00d0
  143.    acall C00b2
  144. ret
  145. B00fa:
  146.    mov A, #3ah
  147.    acall G00b8
  148.    mov R3, #00h
  149.    mov A, #10h
  150.    acall L00d0
  151.    mov A, DPH
  152.    acall L00d0
  153.    mov A, DPL
  154.    acall L00d0
  155.    mov A, #00h
  156.    acall L00d0
  157.    mov R2, #10h
  158. B0112:
  159.    clr A
  160.    movc A, @A+DPTR
  161.    inc DPTR
  162.    acall L00d0
  163.    djnz R2, B0112
  164.    mov A, R3
  165.    cpl A
  166.    acall L00d0
  167.    acall C00b2
  168. ret
  169. B0120:
  170.    mov DPTR, #0000h
  171. B0123:
  172.    mov A, DPH
  173.    cjne A, #20h, B0128
  174. B0128:
  175.    jnc B012e
  176.    acall B00fa
  177. sjmp B0123
  178. B012e:
  179.    acall B00dd
  180. ret
  181. B0131:
  182.    acall B0073
  183. C0133:
  184.    acall B0095
  185.    acall C00a1
  186.    cjne A, #73h, B013e
  187.    acall B0120
  188. sjmp C0133
  189. B013e:
  190.    acall B009c
  191.    acall G00b8
  192. sjmp C0133
  193. B0144:
  194.    mov R0, #90h
  195.    mov DPTR, #0131h
  196.    acall B005c
  197.    setb EA
  198. ret
  199.